n13=/math set %math $1 $2 $3 | if (($len($1) > 10) || ($len($3) > 10)) echo 6 $active Oh come on now, Im now mathematician! | else echo 6 $active The anºwer for $+ $1 $2 $3 $+ is %math
n14=F1 /join $$?="Enter Channel to join:"
n15=F2 /ignore $$?="Enter nick to ignore:" 3
n16=F3 /ignore -t *!*@* | echo 12 -a Ignoring all Ctcp'º, hit F4 to Un-ignore
n17=F4 /ignore -r *!*@*
n18=F5 /nick $readini mirc.ini mIRC nick
n19=;<==[ Scans ]==>
n20=/clones {
n21= set %params $1 | unset %c %c.* | set %c.msg $readini hiro.ini settings clonekicker | set %c.clones 0 | remini clones.ini clones
n22= %c.msg ºearching for cloneº on $+ $active $+ ...
n23= :clones | inc %c | if (%c > $nick(0,$active)) goto end
n24= if ($address($nick(%c,$active),2) == $null) { .enable #scans | %c.msg ((hiroºcript)) ErrOR! Updating IAL and restarting ((hiroºcript)) | writeini hiro.ini settings IAL ON | /who $active | halt } | else writeini hiro.ini settings IAL OFF
n25= if ($readini clones.ini clones $address($nick(%c,$active),2) != $null) { inc %c.clones | set %c.temp $readini clones.ini clones $address($nick(%c,$active),2) | set %c.names2 %c.names2 $nick(%c,$active) | set %c.names %c.names $nick(%c,$active) $+ (Matched %c.temp $+ ) }
n33= if ($1 == $null) { echo 4 Error in /pscan | echo 6 Syntax: /pscan <nick> < -e optional> | disable #scans | halt }
n34= whois $$1 | who $$1 | set %iop No | unset %idle %idle1 %idle2
n35= set %pscan ON | set %away No | if ($2 == -e) set %msg echo 6 $active | else set %msg msg $active | set %Idle None | set %statnick $$1 | set %user none | set %idle3 None
n36=}
n37=cscan {
n38= enable #scans
n39= if ($1 == $null) { set %scanchan $channel(1) | echo 4 Error in /cscan | echo 6 Syntax: /cscan <#channel> (if no channel is chosen, it will scan the first channel opened) | disable #scans }
n40= else set %scanchan #$1
n41= if ($2 == -e) set %msg /echo 6 $active | else set %msg /msg #
n42= set %people 0 | set %ops 0 | set %nonops 0 | set %awayppl 0 | set %iops 0 | set %voice 0
n43= who %scanchan | set %cbot None | set %cscan ON | set %scanchan1 #
n44= unset %iopnames %cppl2 %clones | set %cppl 0
n45=}
n46=clist {
n47= enable #scans
n48= if ($1 == $null) { echo $rand(1,6) Error in /clist | echo $rand(1,6) Syntax: /clist <#channel> or /clist -n <nickname> or /clist <*site*> | disable #scans | halt }
n49= if (-e isin *1) set %msg /echo 6 $active | else set %msg /msg $active
n50= set %clist ON | unset %*del21 %csnames %sites %cs1| set %cs 0
n51= if ($1 != -n) { %msg Searching for clones on $+ $$1 $+ $+ .... | set %search $$1 | who $$1 }
n52= else { set %n ON | whois $$2 | %msg Searching for clones of $+ $$2 $+ $+ .... }
n53=}
n54=oplist {
n55= enable #scans
n56= if (-e isin *1) set %msg echo 6 $active | else set %msg /msg $active
n57= set %awayops 0 | set %oplist on | set %perc1 0 | set %sops $remove($1,-e)
n58= if %sops != $null %msg Searching for IRCops on $+ %sops $+
n59= else { set %sops 0 o | %msg Searching for IRCops on IRC.... }
n60= unset %ops %opsnames %awayops %perc | who %sops
n61=}
n62=;<==[ Fun Stuff ]==>
n63=vote {
n64= if *1 == $null || ^ !isin *1 { echo 4 Error in /vote | echo 6 Syntax: /vote .....<text>....<^first paramter^>....<^second parameter^> (do not forget ^'s) | halt }
n65= unset %totv
n66= if (-m isin *1) { set %votetext $remove(*1,-m) | set %msg amsg }
n67= else set %msg /msg $active
n68= set %111 0 | set %121 0 | enable #vote | set %votetxt $remove(*1, ^) | set %12 $token(4,94,*1)
n69= set %11 $token(2,94,*1)
n70= %msg %votetxt /msg $me %12 to vote for %12 or %11 to vote for %11 ((hiroºcript))
n71= timer 1 90 /vote1
n72=}
n73=numgame {
n74= set %mult OFF | unset %*4rdt | disable #floodpro
n75= if ($1 == -m) {
n76= set %mult ON
n77= amsg Game: Im thinking of a Number between 1 and 500 What is it? Just write #= Then the Number here i.e. #= 45. ((hiroºcript number game v1.4 by Hiro101))
n78= enable #game | set %number $rand(1,500) | amsg each person has 15 guesses
n79= }
n80= else {
n81= msg # Game: Im thinking of a Number between 1 and 500 What is it? Just write #= Then the Number here i.e. #= 45. ((hiroºcript number game v1.4 by Hiro101))
n82= enable #game | set %number $rand(1,500) | msg # each person has 15 guesses
n83= }
n84=}
n85=scram {
n86= if ($len($1) > 8) { echo 12 -a Error! Please do not use more then 8 characters. | halt }
n87= if $1 == $null { echo 4 Error in /scram | echo 6 Syntax: /scram <word to be scrambled> | halt }
n88= set %sct1 A | set %scramword $1 | set %rantime $rand(1,35)
n89= unset %sct %sctext %sclen
n90= timer $+ [ %rantime ] 1 90 msg # BZZzzztt.. Time is up, no one guessed it, the word %sct was %scramword
n91= :scram
n92= set %sc $rand(1, [ $len(%scramword) ] )
n93= if (%sc isin %sct1) goto scram
n94= set %sctext $mid(%sc,1,%scramword) | set %sct1 %sct1 %sc | set %sct $remove(%sct,$chr(32))
n95= set %sct %sct %sctext | inc %sclen
n96= if (%sclen == $len(*1)) goto say
n97= goto scram
n98= :say
n99= set %sct $remove(%sct,$chr(32))
n100= say Game: Unscramble This word:: ((( %sct ))) , 1╜ minutes to guess the word. type word= <word> to guess! ((hiroºcript))
n101= enable #scramble | halt
n102=}
n103=clo {
n104= unset %anything | set %fscore $readini hiro.ini clo score
n105= :reroll
n106= set %die1 $rand(1,6) | set %die2 $rand(1,6) | set %die3 $rand(1,6) | set %dienums A $+ %die1 $+ %die2 $+ %die3
n107= echo 6 You rolled a %die1 $+ , a %die2 $+ , and a %die3
n108= if (4 isin %dienums) && (5 isin %dienums) && (6 isin %dienums) { set %score 25 | set %anything yes }
n109= if (%anything != yes) {
n110= if (1 isin %dienums) && (2 isin %dienums) && (3 isin %dienums) { set %score 0 | set %anything yes }
n111= }
n112= if (%anything != yes) {
n113= if (%die1 != 1) {
n114= if (%die1 == %die2) && (%die1 == %die3) { set %score [ 4 * %die1 ] | set %anything yes | set %trip on }
n119= if (%die1 == %die2) { set %score %die3 | set %anything yes } | if (%die1 == %die3) { set %score %die2 | set %anything yes } | if (%die2 == %die3) { set %score %die1 | set %anything yes }
n120= }
n121= if (%anything == $null) { echo 6 You rolled nothing. Taking 3 pts off your score. | set %fscore [ %fscore - 3 ] | goto reroll }
n122= else { if (%score == 25) set %fscore [ %fscore + 12 ] | if (%score == 20) set %fscore [ %fscore + 11 ] | if (%score == 16) set %fscore [ %fscore + 10 ] | if (%score == 12) set %fscore [ %fscore + 9 ]
n123= if (%score == 8) set %fscore [ %fscore + 8 ] | if (%score == 7) set %fscore [ %fscore + 7 ] | if (%score == 6) set %fscore [ %fscore + 6 ] | if (%score == 5) set %fscore [ %fscore + 5 ]
n124= if (%score == 4) set %fscore [ %fscore + 4 ] | if (%score == 3) set %fscore [ %fscore + 3 ] | if (%score == 2) set %fscore [ %fscore + 2 ] | if (%score == 1) set %fscore [ %fscore + 1 ]
n125= }
n126= echo 6 Your score is %fscore | writeini hiro.ini clo score %fscore
n127=}
n128=/flip set %ranside $rand(1,2) | if (%ranside == 1) set %coin Heads | if (%ranside == 2) set %coin Tails | if (%coin == $1) echo 6 $active You are right! It was %coin | else echo 6 $active Bzzt! It was %coin not $1 $+ .
n129=;<==[ Talkers ]==>
n130=/elite /dde elite elite elitein *1
n131=bt {
n132= if $1 == $null { echo 4 Error in /bt | echo 6 Syntax: /bt <text> | halt }
n133= unset %b %bt | set %b $len(*1) | set %chr32 $chr(32)
n134= :next | set %test $mid(%b,1,*1) | if (%b == -1) goto talk | dec %b
n135= if (%test == %chr32) { set %bt %bt | goto next }
n136= else { set %bt %bt %test | goto Next }
n137= :talk | set %bt $remove(%bt,$chr(32)) | set %bt $replace(%bt,,$chr(32)) | say %bt | halt
n138=}
n139=rct {
n140= if *1 == $null { echo 4 Error in /rct | echo 6 Syntax: /rct <text> | halt }
n141= set %chr32 $chr(32) | set %rctext *1
n142= unset %rc %up1 %up2 %rct2
n143= :loop
n144= if (%rc == $len(%rctext)) { set %rct2 $remove(%rct2,$chr(32)) | set %rct2 $replace(%rct2,,$chr(32) ) | /msg $active %rct2 | halt }
n145= inc %rc | set %rct1 $mid(%rc,1,%rctext)
n146= if (%rct1 == %chr32) { set %rct2 %rct2 | goto loop }
n147= else {
n148= set %up1 $upper(%rct1) | set %up2 $lower(%rct1) | set %rct2 %rct2 %up [ $+ [ $rand(1,2) ] ]
n149= goto loop
n150= }
n151=}
n152=quickey {
n153= echo 6 Quickey Setting: type in the value of each letter in the dialogue box. If you wish to stop setting them type DONE . | set %letnum 97
n154= :nextletter
n155= if (%letnum == 123) { echo 6 $active ((hiroºcript))<<<Key Creation is now Complete>>>((hiroºcript)) | set %yn $?="Would you like to view the list of your letters?" | if (%yn == yes) echo 6 $readini hiro.ini quickey | unset %yn %letnum %letter | halt }
n156= set %letter $chr(%letnum) | set %curlet $readini %ini $+ .ini quickey %letter | set %replet $$?="What would you like [ %letter ] to be? [ $+ [ %curlet ] $+ ] " | if (%replet == done) { echo 6 Quickey creation halted.. Letters a through $+ %letter $+ have been set | halt } | writeini hiro.ini quickey %letter %replet
n157= inc %letnum | goto nextletter
n158=}
n159=saykey {
n160= set %letnum1 97
n161= :nextlet
n162= if (%letnum1 == 123) { msg $active %quicktalk | halt }
n163= set %chrlet $chr(%letnum1) | set %letter1 $readini %ini $+ .ini quickey %chrlet
n164= if (%letnum1 == 97) %quicktalk = $replace(*1,%chrlet,%letter1) | else { set %quicktalk $replace(%quicktalk,%chrlet,%letter1) }
n165= inc %letnum1 | goto nextlet
n166=}
n167=listkey unset %char %value | set %listnum 97 | :nextletter | if (%listnum == 123) halt | set %char $chr(%listnum) | set %value $readini %ini $+ .ini quickey %char | echo 6 %char $+ = $+ %value | inc %listnum | goto nextletter
n168=/pl {
n169= if ($1 == $null) { echo 6 $active Error in /pl | /echo 6 $active Syntax: /pl <text> | halt }
n170= set %vowels a e i o u | unset %i %wordlen %plword %leftside %rightside %wordlen2 | set %line $replace(*1,$chr(32),)
n171= :pl
n172= set %count $count(%line,) | set %count1 %count + 1
n173= if (%i == %count1 ) { /msg $active %plword | halt } | inc %i
n174= set %word $token(%i,127,%line) | set %wordlen $len(%word) | set %wordlen2 %wordlen - 1
n175= if (%wordlen == 1) set %plword %plword %word
n176= elseif ($left(1,%word) !isin %vowels) { set %rightside $right(%wordlen2,%word) | set %leftword %rightside $+ $left(1,%word) $+ ay | set %plword %plword %leftword }
n177= else set %plword %plword %word $+ ay
n178= goto pl
n179=}
n180=/cap {
n181= if ($1 == $null) { /echo 6 $active Error in /cap | /echo 6 Syntax: /cap <text> | halt }
n195= if (%i > $len(%eocline)) { /set %eoctext $remove(%eoctext,$chr(32)) | /set %eoctext $replace(%eoctext,,$chr(32)) | /msg $active %eoctext | halt }
n196= inc %i | if (2 // %i) set %eoctext %eoctext $upper($mid(%i,1,%eocline)) | else set %eoctext %eoctext $mid(%i,1,%eocline) | goto eoc
n197=}
n198=/rantalk set %rantalk $rand(1,9) | if (%rantalk == 1) /pl *1 | if (%rantalk == 2) /eoc *1 | if (%rantalk == 3) /rct *1 | if (%rantalk == 4) /saykey *1 | if (%rantalk == 5) /cap *1 | if (%rantalk == 6) /bt *1 | if (%rantalk == 7) /drunk *1 | if (%rantalk == 8) /rrt *1 | if (%rantalk == 9) /cool *1
n199=;<==[ Flooding ]==>
n200=/mail unset %*.mail | writeini hiro.ini settings emailsend ON | /set %to.mail $$?="Enter who to send letter to:" | set %from.mail $$?="Enter return address:" | set %msg.mail $$?="Enter message" | /raw -q privmsg $me :DCC CHAT CHAT $readini hiro.ini settings mserver 25
n201=/mailbomb enable #mailbomb | set %letters.mail $$?="Enter how many letters to send:" | set %from.mail $$?="Enter return address:" | set %to.mail $$?="Enter address to bomb:" | set %msg.mail $$?="Enter msg to bomb with:" | /raw -q privmsg $me :DCC CHAT CHAT 3322170163 25
n205=/rankick /kick # $nick($rand(1,$nick(0,#)),#) RAnDoM PeRºoN kIcK!
n206=/voteconfirm {
n207= echo 6 $active My databases tell me you would like to be asked to confirm vote requests from Chanbot. In this dialog box type Y or Yes, to allow the vote to go on, or N or No, to cancel it. | set %voteconfirm $$?="Vote Requeºt, Y or N"
n212= echo 6 $active My databases tell me you would like to be asked to confirm game requests from Chanbot. In this dialog box type Y or Yes, to allow the game to go on, or N or No, to cancel it. | set %numconfirm $$?="Game Requeºt, Y or N"
n227= set %kickchan $active | if (-b isin *1) set %kickban ON | if ($me !isop %kickchan) { echo 6 $active ErroR! You must be opped for this to work! | halt }
n267= unset %hmc2 %hmc | set %hmc $1 | if ($1 > 6) { echo 6 <That many clones aren't needed> | halt }
n268= :loadmore | inc %hmc2 | if (%hmc2 > $1) { echo 6 <<Clones Loaded>> | halt } | run $mircdirmirc32.exe $mircdirbotz/clone $+ %hmc2 $+ .ini | goto loadmore
n269=}
n270=setnotify {
n271= unset %overs %times %nickname %address
n272= set %times $?="How many people will you add to database?"
n273= :over
n274= if (%overs == %times) { echo 6 Adding Complete | halt }
n275= inc %overs | set %nickname $?="Nickname of person number [ %overs ] " | set %address $?="Address of person number [ %overs ] "
n276= if (%nickname == $null) || (%address == $null) { echo 4 Error in /setnotify | echo 6 Syntax: /setnotify <nick> <address> | halt }
n277= if ($nick !isnotify) notify %nickname
n278= writeini hiro.ini notify %nickname %address | goto over
n279=}
n280=cads {
n281= set %matchad $readini hiro.ini notify %nnick
n282= if (%matchad != $null) {
n283= if (%matchad iswm %uhmask) echo 4 -a The real %nnick is on IRC
n284= else echo 12 -a %nnick is an imposter! $+ %uhmask $+
n285= }
n286= else { echo 4 -a Error>>- $+ %nnick is not in database $+ -<< }
n287= unset %nnick %uhmask %matchad
n288= if (%nicks == %z) unset %notify %nicks %z
n289=}
n290=/setaway {
n291= unset %*.away %away* | if ($1 == $null) set %awayreason No reason.
n292= set %away.time 12 $+ $time $+ _/\_ $+ $adate $+ | /nick $readini hiro.ini away nick | set %mins.away $$?="for how long? (mins)" | set %sec.away 60
n293= enable #awaycount | enable #page
n294= set %pageonoff $readini %ini $+ .ini away pager | if (%pageonoff == $null) set %pageonoff ON | if (%pageonoff == on) enable #page | /set %awayreason *1
n295= ame Iº AwaY --- Reaºon: $+ %awayreason $+ ---Pager $+ %pageonoff $+ ---4ctcp $me AWAY to ºee how long I've been gone. 4Eºtimated time to return: %mins.away Minuteº 12((hiroºcript))
n296= unset %awaytimesecs | set %awaytimehrs 0 | set %awaytimemins 0
n297= away *1 | /.timer884 0 1 /count | .timer345 0 300 /ame Iº AwaY --- Reaºon: $+ %awayreason $+ ---Pager4 $+ %pageonoff $+ --- 4ctcp $!me AWAY to ºee how long I've been gone. 4Eºtimated time to return: $chr(37) $+ mins.away 4 Minuteº $chr(37) $+ sec.away ºecondº 12((hiroºcript))
n298= /timer666 0 1 /decount
n299=}
n300=/setback {
n301= titlebar ((hiroºcript)) V1.0 By Hiro101 | /nick $readini mIRC.ini mirc nick | set %diffmin.away [ %awaytimemins - %mins.away ]
n302= ame Iº BacK FroM $+ %awayreason $+ --waº away for %awaytimemins Minuteº %awaytimesecs Secº. | away | .timer884 off | .timer345 off | .timer666 off
n303= disable #awaycount | disable #page
n304=}
n305=;<==[ Aliases that are only called by other aliases ]==>
n306=pscan1 {
n307= if (%user == none) {
n308= %msg %statnick ((hiroºcript))
n309= %msg No such nick, %statnick
n310= %msg %statnick ((hiroºcript))
n311= disable #scans | set %pscan off | halt
n312= }
n313= %msg %statnick ((hiroºcript))
n314= %msg %statnick is %user
n315= %msg Is %statnick Away?: %away
n316= %msg %statnick $+ 's Server: %server
n317= %msg Is %statnick an IRCop?: %iop
n318= %msg %statnick $+ 's Idle Time: %idle3
n319= %msg %statnick $+ 's Channels: %channels
n320= %msg End of Scan on %statnick
n321= %msg %statnick ((hiroºcript))
n322= disable #scans | set %pscan OFF | set %clist OFF
n323=}
n324=cscan1 {
n325= if (%people != 0) {
n326= %msg $+ %scanchan $+ ((hiroºcript))
n327= %msg People in %scanchan $+ : %people
n328= if (%ops == 0) %msg There are no OPs on %scanchan
n329= if (%ops != 0) {
n330= %msg Ops $+ : %ops
n331= }
n332= if (%iops == 0) %msg There are on IRCops on %scanchan
n389= unset %hiroscript %ndatabase | echo 4 Welcome to ((hiroºcript)) V1.0 by Hiro101, This will take you through the set up to maximize ((hiroºcript))'s performance. There will be a group of Yes or no questions, Input Y or Yes for yes or N or No for no....
n390= set %hiroscript $?="Personalize system now?" | if (N isin %hiroscript) { echo 6 Okay, if you would like to personalize it later, then type /person | halt }
n391= echo 6 Hopefully you filled out the required info in the mIRC setup dialog by now, personalization beginning...
n392= unset %hiroscript | echo 3 First we will start with CTCP, would you like to configure ctcp now? (Y or Yes - No or N) | set %hiroscript $?="cofigure ctcp now?" | if (N isin %hiroscript) { echo 6 CTCP configuration skipped | goto next } | else goto ctcp
n393= :ctcp | unset %hiroscript | set %hiroscript $?="Auto Ping reply's on?" | if (Y isin %hiroscript) writeini hiro.ini settings pingreply ON | unset %hiroscript | set %hiroscript $?="Ping reply's in active window?" | if (Y isin %hiroscript) /writeini hiro.ini settings pingactive ON
n394= unset %hiroscript | set %hiroscript $?="All ctcp reply's in active?" | if (Y isin %hiroscript) /writeini hiro.ini settings ctcpactive ON
n395= :next | echo 3 Next will be the notify list.. | unset %hiroscript | set %hiroscript $?="configure notify list now?" | if (n isin %hiroscript) goto next1 | echo 3 $active The ((hiroºcript)) Notify database is a database that keeps your friends address's and checks to see if they match when they enter IRC, to see if it's an imposter or not. Would you like this on?
n396= unset %hiroscript | set %hiroscript $?="Notify database on?" | if (y isin %hiroscript) { set %ndatabase ON | /enable #notify | goto notify2 } | else disable #notify
n397= unset %hiroscript | set %hiroscript $?="mIRC notify list on?" | if (n isin %hiroscript) { /notify off | goto next1 } | unset %hiroscript | set %hiroscript $?="add users now?" | if (n isin %hiroscript) goto next1
n398= unset %hiroscript | echo 3 This will add users to the notify list | :notify3 | /notify $?="Enter nick:" | /set %hiroscript $?="Add another?" | if (y isin %hiroscript) goto notify3
n400= :next1 | unset %hiroscript | echo 3 Next is flood protection | set %hiroscript $?="configure flood protection now?" | if (n isin %hiroscript) goto next2
n401= unset %hiroscript | set %hiroscript $?="All flood protection on?" | if (y isin %hiroscript) { enable #floodpro | enable #protection | writeini hiro.ini protect ctcp ON | writeini hiro.ini protect chan on | writeini hiro.ini protect notice on | writeini hiro.ini protect msg on | goto next2 }
n402= unset %hiroscript | set %hiroscript $?="CTCP protection on?" | if (n isin %hiroscript) writeini hiro.ini protect ctcp OFF | unset %hiroscript | set %hiroscript $?="Notice flood protection on?" | if (N isin %hiroscript) writeini hiro.ini protect notice OFF | unset %hiroscript | set %hiroscript $?="MSG protection on?" | if (n isin %hiroscript) writeini hiro.ini protect msg ON
n403= unset %hiroscript | set %hiroscript $?="Channel protection on?" | if (y isin %hiroscript) writeini hiro.ini protect chan ON
n404= :next2 | echo 6 Here are some more things to enter, click on cancel to leave blank. | writeini hiro.ini away nick $?="Enter away nickname:" | echo 3 seperate channels by spaces | write Perform.txt /massjoin $?="Enter channels to join on connect:"
n412= set %rebchrlet $chr(%reb1) | set %reblet1 $readini $mircdirrebtalk.ini letters %rebchrlet
n413= if (%reb1 == 97) %rebtalk = $replace(*1,%rebchrlet,%reblet1) | else { set %rebtalk $replace(%rebtalk,%rebchrlet,%reblet1) }
n414= inc %reb1 | goto nextlet
n415=}
n416=rrt {
n417= unset %i | unset %rainbow %face1 %-r | set %rb $replace(*1,$chr(32),) | if (-r isin *1) set %-r ON | set %rb $remove(%rb,-r) | :again
n418= if (%i > $len(%rb)) {
n419= set %rainbow $remove(%rainbow,$chr(32)) | set %rainbow $replace(%rainbow,,$chr(32)) | set %rainbow $remove(%rainbow,$null) | msg $active %rainbow | /halt
n420= }
n421= if (%-r == ON) { set %face $rand(1,4) | if (%face == 1) set %face1 | if (%face == 2) set %face1 | if (%face == 3) set %face }
n422= inc %i | set %rainbow %rainbow $+ $rand(2,15) $+ ,1 $+ %face1 $mid(%i,1,%rb) $+ | goto again
n423=}
n424=rnick return $nick($rand(1,$nick(0,$1)),$1)
n425=cool {
n426= unset *cool %i %text.cool
n427= set %text1.cool $replace(*1,$chr(32),) | set %front.cool $rand(0,15) | set %back.cool %front.cool + $rand(1,15) | if (%back.cool > 15) set %back.cool %back.cool
n430= if (%i == $len(%text1.cool)) { set %text.cool $remove(%text.cool,$chr(32)) | set %text.cool $replace(%text.cool,,$chr(32)) | msg $active %text.cool | halt }
n431= goto again
n432=}
n433=atime if ($left(2,$time) > 12) { set %atime [ $left(2,$time) - 12 ] | return %atime $+ $right(6,$time) pm } | else return $time am